home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
pcl4b42
/
minimal.bas
< prev
next >
Wrap
BASIC Source File
|
1994-09-08
|
709b
|
25 lines
'
' MINIMAL.BAS: Talk on COM1 @ 2400 baud
'
'$INCLUDE: 'PCL4B.BI'
'Reset port
Buf256$ = STRING$(256+16,0) 'must be 1st string statement
BufSeg = (1+SSEG(Buf256$)) + (SADD(Buf256$) \ 16)
CODE = SioRxBuf(COM1, BufSeg, Size256)
CODE = SioReset(COM1, Baud2400)
DO
'Anything incoming ?
CODE = SioGetc(COM1, 1)
IF CODE > -1 THEN CODE = SioCrtWrite(CODE)
'Anything to send ?
IF SioKeyPress() <> 0 THEN
ANYKEY = SioKeyRead()
'Exit if user types Escape (ESC=27)
IF ANYKEY = 27 THEN EXIT DO
CODE = SioPutc(COM1,ANYKEY)
END IF
LOOP
CODE = SioDone(COM1)
END